
ARCADIAN 


The following program samples were picked from the more than 
75 that have so far appeared in the ARCADIAN. They are short 
enough to enter in just a few minutes, yet good enough to 
give you an idea of what's possible. 

Most programs are from 1 to 2 pages long and contain some 
clever items and effects. We can play WUMPUS, OTHELLO, and 
CHECKERS against the computer, or use the Bally as a CHESS 
BOARD (only to keep track of the moves), or play ARTILLERY 
DUEL, HORSE RACE, MASTERMIND against each other. And that's 
only a short list of games. 

For the technically oriented, we can get the machine to 
display its memory in decimal, hex, or octal. Or convert 
data in one system into the others. And do machine language 
programming. 

But you can't do a thing if you don't have the BASIC VIDEO- 
CADE. We have a limited supply at half-price, $26.ppd, 
plus California tax, if applicable....... 


2B CLEAR 
30 A=3 
40 B=RND (2) 

50 C=RND (2) 

G0 X=B; Y=0 
70 LINE X , Y < 4 
30 FOR D=1 TO 100 
30 X=X+B 
100 Y=Y+C 

110 IF X >75 GOTO 30 
120 IF Y >35 GOTO 30 
130 GOSUB 160 
140 NEXT D 
150 GOTO 30 
160 LINE X , Y , A 
170 LINE X, -Y, A 
130 LINE -X, -Y, A , 
130 LINE -X,Y,A 
200 RETURN 


7200 CLEAR 

7205 FC=12;BC=0 

7210 FOR A=1T0 60 

7220 BOX RNB ( 160 ) -80 , RNE 

7230 NEXT A 

7240 &( 16 )=255 

7250 &( 22 )=40 ;&(21)=15 

7260 &( 20 }=RND (50)+10 

7270 &( 23 )=RND (255) 

7280 GOTO 7240 


10 CLEAR 

20 @( 1 )=37 ; @(2)=S7; @C3)=73; @C4)=63; @C5)=82; @C6)=68; ' 
30 INPUT "LETTER SIZE?"L; CLEAR ; BC=B; FC=134; &C10)=140 
TU=®>( A ) ; NEXT A 

40 &( 16 )=100; &( 21 )=73; &(22)=255 
50 NT=0; FOR X=-BB TO 130-rL-80; FOR Y=-33 TO -27 
60 IF PXC X , Y ) BOX ( X+81 )xL-73, ( Y+30 )xL, L, L, 1 
70 D=RNB ( 3 ) + 16; &( D )=RND (150) + 10 
80 NEXT Y; NEXT X 

30 BOX -53,-30,42,3,2; &C10)=174; &C22)=0; &C21)=0 
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10 CLEAR 
20 FC=7; BC=0 
30 BC=BC+8 
40 X=RND ( 15 ) * 10 
50 Y=RND (8) * 10 
60 BOX 0, 0, X, Y, 3 
70 GOTO 30 


10 CLEAR 

20 INPUT X, Y 

30 CLEAR 

40 BOX X, Y, 1, 1, 1 

50 A=X+Y*2; B=Y-A-r2 

60 IF PXC A, B ) = 1 GOTO 20 

70 X=A; Y=B; GOTO 40 





